/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_09 / converters / modeconv

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 4d | 6f 64 65 43 6f 6e 76 0d |..... >M|odeConv.|
|00000010| 00 14 0c 2a 46 58 20 39 | 20 32 35 0d 00 1e 0d 2a |...*FX 9| 25....*|
|00000020| 46 58 20 31 30 20 32 35 | 0d 00 28 29 de 20 63 6d |FX 10 25|..(). cm|
|00000030| 61 70 25 28 32 35 35 29 | 2c 62 69 74 25 28 38 29 |ap%(255)|,bit%(8)|
|00000040| 2c 64 61 74 61 25 28 26 | 33 34 29 2c 64 25 20 31 |,data%(&|34),d% 1|
|00000050| 36 0d 00 32 08 d9 20 23 | 30 0d 00 3c 1f e3 20 69 |6..2.. #|0..<.. i|
|00000060| 25 3d 30 20 b8 20 32 35 | 35 3a 63 6d 61 70 25 28 |%=0 . 25|5:cmap%(|
|00000070| 69 25 29 3d 2d 31 3a ed | 0d 00 46 07 eb 31 32 0d |i%)=-1:.|..F..12.|
|00000080| 00 50 05 f5 0d 00 5a 23 | 20 20 e8 20 22 53 6f 75 |.P....Z#|  . "Sou|
|00000090| 72 63 65 20 73 63 72 65 | 65 6e 20 66 69 6c 65 3a |rce scre|en file:|
|000000a0| 20 22 66 69 6c 65 24 0d | 00 64 11 20 20 66 25 3d | "file$.|.d.  f%=|
|000000b0| 8e 28 66 69 6c 65 24 29 | 0d 00 6e 20 20 20 e7 20 |.(file$)|..n   . |
|000000c0| 66 25 3c 31 20 8c 20 f1 | 22 46 69 6c 65 20 6e 6f |f%<1 . .|"File no|
|000000d0| 74 20 66 6f 75 6e 64 22 | 0d 00 78 0a fd 20 66 25 |t found"|..x.. f%|
|000000e0| 3e 30 0d 00 82 10 e3 20 | 69 25 3d 30 20 b8 20 26 |>0..... |i%=0 . &|
|000000f0| 33 34 0d 00 8c 14 20 20 | 64 61 74 61 25 28 69 25 |34....  |data%(i%|
|00000100| 29 3d 9a 23 66 25 0d 00 | 96 05 ed 0d 00 a0 17 6f |)=.#f%..|.......o|
|00000110| 6c 64 6d 6f 64 65 25 3d | 64 61 74 61 25 28 26 33 |ldmode%=|data%(&3|
|00000120| 34 29 0d 00 aa 25 cf 23 | 66 25 3d 31 32 2b 64 61 |4)...%.#|f%=12+da|
|00000130| 74 61 25 28 26 33 30 29 | 2b 32 35 36 2a 64 61 74 |ta%(&30)|+256*dat|
|00000140| 61 25 28 26 33 31 29 0d | 00 b4 2d f1 20 66 69 6c |a%(&31).|..-. fil|
|00000150| 65 24 20 22 20 69 73 20 | 63 75 72 72 65 6e 74 6c |e$ " is |currentl|
|00000160| 79 20 69 6e 20 6d 6f 64 | 65 20 22 3b 6f 6c 64 6d |y in mod|e ";oldm|
|00000170| 6f 64 65 25 0d 00 be 11 | c8 8e 20 6f 6c 64 6d 6f |ode%....|.. oldmo|
|00000180| 64 65 25 20 ca 0d 00 c8 | 16 20 20 c9 20 30 2c 34 |de% ....|.  . 0,4|
|00000190| 2c 31 38 3a 62 69 74 73 | 25 3d 31 0d 00 d2 18 20 |,18:bits|%=1.... |
|000001a0| 20 c9 20 31 2c 35 2c 38 | 2c 31 39 3a 62 69 74 73 | . 1,5,8|,19:bits|
|000001b0| 25 3d 32 0d 00 dc 19 20 | 20 c9 20 32 2c 39 2c 31 |%=2.... | . 2,9,1|
|000001c0| 32 2c 32 30 3a 62 69 74 | 73 25 3d 34 0d 00 e6 18 |2,20:bit|s%=4....|
|000001d0| 20 20 c9 20 31 30 2c 31 | 33 2c 31 35 3a 62 69 74 |  . 10,1|3,15:bit|
|000001e0| 73 25 3d 38 0d 00 f0 29 | 20 20 7f 3a f1 20 22 53 |s%=8...)|  .:. "S|
|000001f0| 6f 75 72 63 65 20 6d 6f | 64 65 20 6e 6f 74 20 63 |ource mo|de not c|
|00000200| 61 74 65 72 65 64 20 66 | 6f 72 22 3a e0 0d 00 fa |atered f|or":....|
|00000210| 05 cb 0d 01 04 11 c8 8e | 20 6f 6c 64 6d 6f 64 65 |........| oldmode|
|00000220| 25 20 ca 0d 01 0e 21 20 | 20 c9 20 30 2c 34 2c 38 |% ....! | . 0,4,8|
|00000230| 2c 31 32 2c 31 35 2c 31 | 38 2c 31 39 2c 32 30 3a |,12,15,1|8,19,20:|
|00000240| 78 25 3d 32 0d 01 18 18 | 20 20 c9 20 31 2c 35 2c |x%=2....|  . 1,5,|
|00000250| 39 2c 31 30 2c 31 33 3a | 78 25 3d 34 0d 01 22 0e |9,10,13:|x%=4..".|
|00000260| 20 20 c9 20 32 3a 78 25 | 3d 38 0d 01 2c 05 cb 0d |  . 2:x%|=8..,...|
|00000270| 01 36 1f e7 20 6f 6c 64 | 6d 6f 64 65 25 3e 31 37 |.6.. old|mode%>17|
|00000280| 20 8c 20 79 25 3d 32 20 | 8b 20 79 25 3d 34 0d 01 | . y%=2 |. y%=4..|
|00000290| 40 0a 62 62 25 3d 2d 31 | 0d 01 4a 05 f5 0d 01 54 |@.bb%=-1|..J....T|
|000002a0| 19 20 20 e8 20 22 4e 65 | 77 20 6d 6f 64 65 20 3a |.  . "Ne|w mode :|
|000002b0| 22 6d 6f 64 65 25 0d 01 | 5e 10 20 20 c8 8e 20 6d |"mode%..|^.  .. m|
|000002c0| 6f 64 65 25 20 ca 0d 01 | 68 16 20 20 20 20 c9 20 |ode% ...|h.    . |
|000002d0| 30 2c 34 2c 31 38 3a 62 | 62 25 3d 31 0d 01 72 18 |0,4,18:b|b%=1..r.|
|000002e0| 20 20 20 20 c9 20 31 2c | 35 2c 38 2c 31 39 3a 62 |    . 1,|5,8,19:b|
|000002f0| 62 25 3d 32 0d 01 7c 19 | 20 20 20 20 c9 20 32 2c |b%=2..|.|    . 2,|
|00000300| 39 2c 31 32 2c 32 30 3a | 62 62 25 3d 34 0d 01 86 |9,12,20:|bb%=4...|
|00000310| 18 20 20 20 20 c9 20 31 | 30 2c 31 33 2c 31 35 3a |.    . 1|0,13,15:|
|00000320| 62 62 25 3d 38 0d 01 90 | 2e 20 20 20 20 7f 3a f1 |bb%=8...|.    .:.|
|00000330| 20 22 44 65 73 74 69 6e | 61 74 69 6f 6e 20 6d 6f | "Destin|ation mo|
|00000340| 64 65 20 6e 6f 74 20 63 | 61 74 65 72 65 64 20 66 |de not c|atered f|
|00000350| 6f 72 22 0d 01 9a 07 20 | 20 cb 0d 01 a4 0b fd 20 |or".... | ...... |
|00000360| 62 62 25 3e 30 0d 01 ae | 1f e8 20 22 4e 65 77 20 |bb%>0...|.. "New |
|00000370| 66 69 6c 65 20 6e 61 6d | 65 20 3a 22 6e 65 77 66 |file nam|e :"newf|
|00000380| 69 6c 65 24 0d 01 b8 1c | e7 20 62 62 25 3d 34 20 |ile$....|. bb%=4 |
|00000390| 80 20 62 69 74 73 25 3c | 38 20 8c 20 2a 46 58 39 |. bits%<|8 . *FX9|
|000003a0| 0d 01 c2 30 e7 20 62 69 | 74 73 25 3d 38 20 80 20 |...0. bi|ts%=8 . |
|000003b0| 62 62 25 3c 38 20 8c 20 | 6d 61 70 64 6f 77 6e 25 |bb%<8 . |mapdown%|
|000003c0| 3d b9 20 8b 20 6d 61 70 | 64 6f 77 6e 25 3d 20 a3 |=. . map|down%= .|
|000003d0| 0d 01 cc 17 e7 20 62 69 | 74 73 25 3c 38 20 80 20 |..... bi|ts%<8 . |
|000003e0| 62 62 25 3d 38 20 8c 0d | 01 d6 1c 20 20 ff 28 22 |bb%=8 ..|...  .("|
|000003f0| 53 43 52 45 45 4e 4c 4f | 41 44 20 22 2b 66 69 6c |SCREENLO|AD "+fil|
|00000400| 65 24 29 0d 01 e0 0e 20 | 20 6d 61 70 75 70 25 3d |e$).... | mapup%=|
|00000410| b9 0d 01 ea 11 20 20 e3 | 20 69 25 3d 30 20 b8 20 |.....  .| i%=0 . |
|00000420| 31 35 0d 01 f4 2a 20 20 | 20 20 c8 99 20 22 4f 53 |15...*  |  .. "OS|
|00000430| 5f 52 65 61 64 50 61 6c | 65 74 74 65 22 2c 69 25 |_ReadPal|ette",i%|
|00000440| 2c 31 36 20 b8 20 2c 2c | 63 6f 6c 25 0d 01 fe 1f |,16 . ,,|col%....|
|00000450| 20 20 20 20 72 25 3d 28 | 28 63 6f 6c 25 3e 3e 38 |    r%=(|(col%>>8|
|00000460| 29 20 80 20 26 46 46 29 | 3e 3e 35 0d 02 08 20 20 |) . &FF)|>>5...  |
|00000470| 20 20 20 67 25 3d 28 28 | 63 6f 6c 25 3e 3e 31 36 |   g%=((|col%>>16|
|00000480| 29 20 80 20 26 46 46 29 | 3e 3e 35 0d 02 12 20 20 |) . &FF)|>>5...  |
|00000490| 20 20 20 62 25 3d 28 28 | 63 6f 6c 25 3e 3e 32 34 |   b%=((|col%>>24|
|000004a0| 29 20 80 20 26 46 46 29 | 3e 3e 35 0d 02 1c 25 20 |) . &FF)|>>5...% |
|000004b0| 20 20 20 74 25 3d 28 72 | 25 20 80 20 31 29 2b 28 |   t%=(r|% . 1)+(|
|000004c0| 62 25 20 80 20 31 29 2b | 28 67 25 20 80 20 31 29 |b% . 1)+|(g% . 1)|
|000004d0| 0d 02 26 43 20 20 20 20 | 63 6d 61 70 25 28 69 25 |..&C    |cmap%(i%|
|000004e0| 29 20 3d 20 28 72 25 3e | 3e 31 29 20 2b 20 28 28 |) = (r%>|>1) + ((|
|000004f0| 67 25 3e 3e 31 29 3c 3c | 32 29 20 2b 20 28 28 62 |g%>>1)<<|2) + ((b|
|00000500| 25 3e 3e 31 29 3c 3c 34 | 29 20 2b 20 28 74 25 3c |%>>1)<<4|) + (t%<|
|00000510| 3c 36 29 0d 02 30 07 20 | 20 ed 0d 02 3a 05 cc 0d |<6)..0. | ...:...|
|00000520| 02 44 0e 20 20 6d 61 70 | 75 70 25 3d a3 0d 02 4e |.D.  map|up%=...N|
|00000530| 05 cd 0d 02 58 04 0d 02 | 62 0d eb 20 6d 6f 64 65 |....X...|b.. mode|
|00000540| 25 3a 87 0d 02 6c 31 e7 | 20 62 69 74 73 25 3d 38 |%:...l1.| bits%=8|
|00000550| 20 80 20 62 62 25 3d 38 | 20 8c 20 62 79 74 65 63 | . bb%=8| . bytec|
|00000560| 6f 70 79 25 3d b9 20 8b | 20 62 79 74 65 63 6f 70 |opy%=. .| bytecop|
|00000570| 79 25 3d a3 0d 02 76 0e | 6e 65 78 74 6d 61 70 25 |y%=...v.|nextmap%|
|00000580| 3d 30 0d 02 80 16 6d 61 | 73 6b 25 3d 28 31 3c 3c |=0....ma|sk%=(1<<|
|00000590| 62 69 74 73 25 29 2d 31 | 0d 02 8a 0a 5a 25 3d 26 |bits%)-1|....Z%=&|
|000005a0| 46 46 0d 02 94 26 e7 20 | 62 79 74 65 63 6f 70 79 |FF...&. |bytecopy|
|000005b0| 25 20 8c 20 f2 62 79 74 | 65 63 6f 70 79 20 8b 20 |% . .byt|ecopy . |
|000005c0| f2 63 6f 6e 76 65 72 74 | 0d 02 9e 1d ff 28 22 53 |.convert|.....("S|
|000005d0| 43 52 45 45 4e 53 41 56 | 45 20 22 2b 6e 65 77 66 |CREENSAV|E "+newf|
|000005e0| 69 6c 65 24 29 0d 02 a8 | 05 e0 0d 02 b2 04 0d 02 |ile$)...|........|
|000005f0| bc 0d dd f2 63 6f 6e 76 | 65 72 74 0d 02 c6 1a e7 |....conv|ert.....|
|00000600| 20 6f 6c 64 6d 6f 64 65 | 25 3d 32 20 8c 20 62 69 | oldmode|%=2 . bi|
|00000610| 74 73 25 3d 38 0d 02 d0 | 0e 62 79 74 65 25 3d 9a |ts%=8...|.byte%=.|
|00000620| 23 66 25 0d 02 da 17 e3 | 20 59 25 3d 31 30 32 33 |#f%.....| Y%=1023|
|00000630| 20 b8 20 30 20 88 20 2d | 79 25 0d 02 e4 17 20 e3 | . 0 . -|y%.... .|
|00000640| 20 58 25 3d 30 20 b8 20 | 31 32 37 39 20 88 20 78 | X%=0 . |1279 . x|
|00000650| 25 0d 02 ee 18 20 20 43 | 25 3d 28 62 79 74 65 25 |%....  C|%=(byte%|
|00000660| 29 20 80 20 6d 61 73 6b | 25 0d 02 f8 18 20 20 62 |) . mask|%....  b|
|00000670| 79 74 65 25 3d 62 79 74 | 65 25 3e 3e 62 69 74 73 |yte%=byt|e%>>bits|
|00000680| 25 0d 03 02 12 20 20 5a | 25 3d 5a 25 3e 3e 62 69 |%....  Z|%=Z%>>bi|
|00000690| 74 73 25 0d 03 0c 0e 20 | 20 e7 20 5a 25 3d 30 20 |ts%.... | . Z%=0 |
|000006a0| 8c 0d 03 16 0e 20 20 20 | 20 5a 25 3d 26 46 46 0d |.....   | Z%=&FF.|
|000006b0| 03 20 12 20 20 20 20 62 | 79 74 65 25 3d 9a 23 66 |. .    b|yte%=.#f|
|000006c0| 25 0d 03 2a 07 20 20 cd | 0d 03 34 1b 20 20 e7 20 |%..*.  .|..4.  . |
|000006d0| 6d 61 70 64 6f 77 6e 25 | 20 84 20 6d 61 70 75 70 |mapdown%| . mapup|
|000006e0| 25 20 8c 0d 03 3e 1d 20 | 20 20 20 e7 20 63 6d 61 |% ...>. |   . cma|
|000006f0| 70 25 28 43 25 29 3d 2d | 31 20 8c 20 f2 6d 61 70 |p%(C%)=-|1 . .map|
|00000700| 0d 03 48 24 20 20 20 20 | e6 20 63 6d 61 70 25 28 |..H$    |. cmap%(|
|00000710| 43 25 29 80 26 33 46 20 | c8 9c 20 63 6d 61 70 25 |C%).&3F |.. cmap%|
|00000720| 28 43 25 29 0d 03 52 07 | 20 20 cc 0d 03 5c 16 20 |(C%)..R.|  ...\. |
|00000730| 20 20 20 e6 20 43 25 80 | 26 33 46 20 c8 9c 20 43 |   . C%.|&3F .. C|
|00000740| 25 0d 03 66 07 20 20 cd | 0d 03 70 16 20 20 c8 93 |%..f.  .|..p.  ..|
|00000750| c8 90 20 58 25 2c 59 25 | 2d 34 2c 38 2c 34 0d 03 |.. X%,Y%|-4,8,4..|
|00000760| 7a 06 20 ed 0d 03 84 05 | ed 0d 03 8e 05 e1 0d 03 |z. .....|........|
|00000770| 98 04 0d 03 a2 09 dd f2 | 6d 61 70 0d 03 ac 10 20 |........|map.... |
|00000780| 20 e3 20 69 25 3d 30 20 | b8 20 37 0d 03 b6 30 20 | . i%=0 |. 7...0 |
|00000790| 20 20 20 e7 20 28 43 25 | 20 80 20 31 3c 3c 69 25 |   . (C%| . 1<<i%|
|000007a0| 29 20 8c 20 62 69 74 25 | 28 69 25 29 3d 31 20 8b |) . bit%|(i%)=1 .|
|000007b0| 20 62 69 74 25 28 69 25 | 29 3d 30 0d 03 c0 07 20 | bit%(i%|)=0.... |
|000007c0| 20 ed 0d 03 ca 1f 20 20 | 72 25 3d 28 32 2a 62 69 | .....  |r%=(2*bi|
|000007d0| 74 25 28 34 29 2b 62 69 | 74 25 28 32 29 29 2a 36 |t%(4)+bi|t%(2))*6|
|000007e0| 34 0d 03 d4 1f 20 20 67 | 25 3d 28 32 2a 62 69 74 |4....  g|%=(2*bit|
|000007f0| 25 28 36 29 2b 62 69 74 | 25 28 35 29 29 2a 36 34 |%(6)+bit|%(5))*64|
|00000800| 0d 03 de 20 20 20 62 6c | 25 3d 28 32 2a 62 69 74 |...   bl|%=(2*bit|
|00000810| 25 28 37 29 2b 62 69 74 | 25 28 33 29 29 2a 36 34 |%(7)+bit|%(3))*64|
|00000820| 0d 03 e8 1f 20 20 74 25 | 3d 28 32 2a 62 69 74 25 |....  t%|=(2*bit%|
|00000830| 28 31 29 2b 62 69 74 25 | 28 30 29 29 2a 31 36 0d |(1)+bit%|(0))*16.|
|00000840| 03 f2 39 20 20 e7 20 6e | 65 78 74 6d 61 70 25 3c |..9  . n|extmap%<|
|00000850| 31 36 20 8c 20 fb 20 6e | 65 78 74 6d 61 70 25 2c |16 . . n|extmap%,|
|00000860| 28 72 25 2b 74 25 29 2c | 28 67 25 2b 74 25 29 2c |(r%+t%),|(g%+t%),|
|00000870| 28 62 6c 25 2b 74 25 29 | 0d 03 fc 18 20 20 63 6d |(bl%+t%)|....  cm|
|00000880| 61 70 25 28 43 25 29 3d | 6e 65 78 74 6d 61 70 25 |ap%(C%)=|nextmap%|
|00000890| 0d 04 06 11 20 20 6e 65 | 78 74 6d 61 70 25 2b 3d |....  ne|xtmap%+=|
|000008a0| 31 0d 04 10 05 e1 0d 04 | 1a 04 0d 04 24 0e dd f2 |1.......|....$...|
|000008b0| 62 79 74 65 63 6f 70 79 | 0d 04 2e 0c 64 25 21 30 |bytecopy|....d%!0|
|000008c0| 3d 31 34 39 0d 04 38 0b | 64 25 21 34 3d 2d 31 0d |=149..8.|d%!4=-1.|
|000008d0| 04 42 24 c8 99 20 22 4f | 53 5f 52 65 61 64 56 64 |.B$.. "O|S_ReadVd|
|000008e0| 75 56 61 72 69 61 62 6c | 65 73 22 2c 64 25 2c 64 |uVariabl|es",d%,d|
|000008f0| 25 2b 38 0d 04 4c 12 73 | 63 72 6e 61 64 64 72 25 |%+8..L.s|crnaddr%|
|00000900| 3d 64 25 21 38 0d 04 56 | 2f e7 20 6d 6f 64 65 25 |=d%!8..V|/. mode%|
|00000910| 3d 31 35 20 8c 20 4e 25 | 3d 31 36 33 38 33 39 3a |=15 . N%|=163839:|
|00000920| 53 25 3d 32 20 8b 20 4e | 25 3d 38 31 39 31 39 3a |S%=2 . N|%=81919:|
|00000930| 53 25 3d 31 0d 04 60 14 | e3 20 70 25 3d 30 20 b8 |S%=1..`.|. p%=0 .|
|00000940| 20 4e 25 20 88 20 53 25 | 0d 04 6a 10 20 20 62 79 | N% . S%|..j.  by|
|00000950| 74 65 25 3d 9a 23 66 25 | 0d 04 74 18 20 20 73 63 |te%=.#f%|..t.  sc|
|00000960| 72 6e 61 64 64 72 25 3f | 70 25 3d 62 79 74 65 25 |rnaddr%?|p%=byte%|
|00000970| 0d 04 7e 25 20 20 e7 20 | 53 25 3d 32 20 8c 20 73 |..~%  . |S%=2 . s|
|00000980| 63 72 6e 61 64 64 72 25 | 3f 28 70 25 2b 31 29 3d |crnaddr%|?(p%+1)=|
|00000990| 62 79 74 65 25 0d 04 88 | 20 20 20 e7 20 6f 6c 64 |byte%...|   . old|
|000009a0| 6d 6f 64 65 25 3d 31 35 | 20 8c 20 6a 75 6e 6b 25 |mode%=15| . junk%|
|000009b0| 3d 9a 23 66 25 0d 04 92 | 05 ed 0d 04 9c 05 e1 0d |=.#f%...|........|
|000009c0| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+